home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / emacsdoc.arc / BDATA.CMD < prev    next >
Encoding:
Text File  |  1987-01-18  |  531 b   |  30 lines
  1. ;Create a block of DATA statements for a BASIC program
  2. ; within MicroEMACS 3.8
  3.  
  4.     insert-string "1000 DATA "
  5.     set %linenum 1000
  6.  
  7. *nxtin
  8.     update-screen        ;make sure we see the changes
  9.     set %data @"Next number[0 to end]: "
  10.     !if &equal %data 0
  11.         !goto finish
  12.     !endif
  13.  
  14.     !if &greater $curcol 60
  15.         2 delete-previous-character
  16.         newline
  17.         set %linenum &add %linenum 10
  18.         insert-string &cat %linenum " DATA "
  19.     !endif
  20.  
  21.     insert-string &cat %data ", "
  22.     !goto nxtin
  23.  
  24. *finish
  25.  
  26.     2 delete-previous-character
  27.     newline
  28.  
  29.  
  30.